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: 1 oo MODULE RM3SRCHKY (LANGUAGE (8). 15$52) ° 

3 ¢ 0 ¢ IDENT = ‘V04-000' 

3 00 dz 

$ 4 004 1 BEGIN 

3 5 0005 1! 

3 8 Bee } BARES SSSSS CSTE ESET ETT ETT TTT TT TT PT ce Pee cece cece critic icici citi titi tii iti iiie | 

; 'e 

; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

: 9 0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; 19 Boa9 : :* ALL RIGHTS RESERVED. * 

; ; * 

3 \¢ oats 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

Oy 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

ci. 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER’ * 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 

co ee! 0016 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: i? Bete ; ? TRANSFERRED. , 
5 '® * | 
3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; 1 9021 is CORPORATION. * | 
° ;* * | 
: 23 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

:; @ 0025 1 !« * 
; @& 0026 1 !* « 

s 27 0027 1 leek ere eee eee eee RARE A EAA AAA A TATE ATA AAAAe eee eee eee ee eee eee 

; «28 0028 1 | 
; 2 594 1 !e¢ 

; 30 0030 1! | 
3 3 oO, ! FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

3 33 oOas 1 ! ABSTRACT: 

3 $e ose \ This module starts at current bucket and searchs to stop level 
3 36 0036 1! 

Tie: 4 0037 1 ! ENVIRONMENT: 

; 38 0038 1! 

3 39 0039 1! VAX/VMS OPERATING SYSTEM 

: 40 0040 1! 

ae 5 0041 1 !-=- 

ee B26 1 

3 43 004 a 

3 re} Ooee ' : AUTHOR: D. H. Gillespie CREATION DATE: 18-APR-78 9:39 

s #4 0046 1 ! MODIFIED BY: 

s 67 0047 1! 

: 48 00468 1! v03-011 TMKO004 Todd M. Katz 03-Apr-1983 

: 49 0049 1! Add support for RU record space reclamation. This involves 

0050 1! modifications to RMSSEARCH_TREE as follows. Whenever RMS 

2 ae 0051 1! has write access to a file that is marked RU Journallable, 

g 2g 0026 1! and is currently positioning to a primary data bucket but 

3 0055 1! not for modification, then RMS wants to set the CSHS$V_LOCK 

oo 0054 1: flag so that the bucket will be EXclusively locked in-case RU 

: > 3 0055 1! record reclamation takes place on the bucket. In addition, RMS 

; & Ones 1! wants to EXclusively lock all SIDR buckets whenever it has 

; 57 057 1! write access to the file. 
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RMSSRCHKY 16-Sep-1984 02:06:20 AX-11 iss-32 V4.0-74 
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Fix bug where horizontal reads at the stoplevel were 
not sock tas the bucket on positions for insert or 
delete. This was working correctly for position for 
insert at level 0 only (which is the normal place 
where horizontal reads would take place). 

The changes in RMSCACHE and RMSRELEASE have made them 
sensitive to this error. 


v02-039 CDS0006 C Saether 20-Jan-1982 


; 0 1! 

; 9 888 7 v03-010 MCNOO005S Maria del C. Nasr 15-Mar-1983 

; o Bey ! } More Linkages reorganization 

fog O6¢ 1 i V03-009 MCN0004 Maria del C. Nasr 28-Feb-1983 

; o7 6d : } Reorganize Linkages 

: 65 0065 1 | V03-008 TMK0003 Todd M. Katz 03-Feb-1983 

; 3666 0066 1! Add support for Recovery Unit Journalling and RU ROLLBACK 

3; 6 «66 0067 1! Recovery of ISAM files. Make a change to SEARCH_V2. Do not set 
; «668 0068 1! the bit IRBSV_DUPS_SEEN if the current primary data record is 
: 69 0069 1! either marked RU_DELETE or DELETED. Previously just a check for 
; £9 Baty : DELETED was being made. 

in. 007¢ 1 i v03-007 TMK0002 Todd M. Katz 09-Sep-1982 

>. 0075 1! The field IRBSB_SRCHFLAGS has been changed to a word in size. 
s r Bate : Fix all references to it. 

: 76 0076 1} Add support for prologue 3 SIDRs. This includes the removal of 
3 a Ad : misleading comment statements. 

: 79 0079 1! In the local routine SEARCH_V2, when a search key is found to 
$ 59 itt : } be equal to a key of a record, set the IRAB bit 1RBSV_DUP_KEY. 
; 82 0082 1} 

; 683 0085 1! V03-006 KBT0297 Keith B. Thompson 24-Aug-1982 

3 Be bose : Reorganize psects 

: 86 0086 1 | V03-005 MCNO003 Maria del C. Nasr 29-Jun-1982 

s oF 0087 1! Allow keys of different data ypee other than string 

; 0088 1! in prate ue 3 files. Change all CHSCOMPARE calls to 

; ww 0089 1! RMSCOMPARE_KEY to compare keys taking into consideration 

; + ia : } the different data types. 

: 92 0092 1! VO3-004 TMK0001 Todd M. Katz _ 25-May-1982 

3 a? Op87 : } Eliminate unneccesary Linkage declaration for RMSRECORD_KEY. 
: 95 0095 1: v03-003 MCN0002 Maria del C. Nasr 25-Mar-1982 

; 38 Boe ' Use macro to calculate key buffer address. 

; 0098 1 v03-002 cps0008 C Saether 23-Mar-1982 

; WP 0099 1! Restore BKT_ADDR when BDB is restored when leaving 

; 0100 1! block that confirms down pointer from level 1. 

; 17 This was causing the check for level 0 to fail and 

3 7! not lock the next bucket when positioning horizontally 

3 : at level 0. 

; v03-001 cpS0007 C Saether 3-Mar-1982 

: 1 i 

; 1! 

; 1! 

: 1! 

5 1! 

; Ss 

: 1! 

$ 1! 
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Set VBN_LEFT for scan forward when not peck ing. 
Clear IRBS| REC COUNT before calling RMS$SRCH_BY_KEY 
in the horizontal 7“ apts. 
Once data level horizontal scan has started, do not 
drop back into outer Loop anymore. 
v02-038 CDS0005 C Saether 14-Jan-1982 
Put back logic to check index down pointer after 
positioning to level on insert. It's really necessary. 


v02-037 CDS0004 C Saether 
Fix error path botched in v02-036. 
Put back retry on rlk error going down tree inadvertently 
removed by V02-036. 


31-Dec-1981 


WN —O OONOUVUVE WN -"OVOOnNOu 


compresses indexes. 
4) Add RMSCHK_HORIZ 
5) Change calls to COMP_ASCII to be CHSCOMPARE 


i 
7 
: 
4 
H 
4 
8 
0 v02-036 CDS0003 C Saether 29-Dec-1981 
1 Remove logic to check down pointer before going 
¢ across on position for insert. 
Modify horizontal scan at data level on position for 
4 insert to release bucket prior to going ahead. This 
5 eliminates need for special algorithms to avoid deadlock 
6 with rrv updating by other streams. Previous algorithm 
. i could get into infinite loop with another process. 
9 35 v02-035 PSK0009 P Knibbe 07-0ct-1981 
0 40 Make sure all calls to RMSRECORD_VBN check for 
1 re prologue version. 
: rk v02-034 CDS0002 C Saether 29-Sep-1981 
: re Make check for exclusive lock before setting abovelckd. 
6 46 v02-033 CDS0001 C Saether 20-Aug-1981 
rt Remove references to BDBSL_OWN. 
9 49 v02-032 PSK0008 Pauiina S. Knibbe 08-Aug-1981 
? 29 Remove all references to SPLCTX 
§ 25 v02-031 PSK0007 Paulina S. Knibbe 30-Jul-1981 
i 37 Remove support for truncated index keys. 
5 55 v02-030 PSK0006 Paulina S. Knibbe 12-Jun-1981 
6 2$ 1) Make RM$V3_VBN a global routine 
7 5 2) Save LST_NCUMP when bouncing back and forth between 
8 28 two buckets. f , 
.] 23 3) Add logic to support horizontal processing in v3 
e 
63 


wh 


v02-029 PSK0005 Paulina S. Knibbe cO-foy= 100! 
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65 Fix problem on GT search. Make lock-above optimization 
66 work for prologue three files. 
68 v02-028 PSK0004 Paulina S. Knibbe 03-May-1981 
9 $? Add support for compressed keys in index, SIDR and data 
? y buckets. 
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: 7% 138 1! v02-027 PSK0003 Paulina S. Knibbe 30-Apr-1981 3 
; \o? \t? : Fix problem when key goes past range in bucket : 
: 175 175 13 v02=026 MCNO001 Maria del C. Nasr 23-Apr-1981 ; 
3 176 178 , ! Add support for non-compressed keys at the primary data : 
: ivi 1? : } level of prologue 3 files. : 
: 179 155 1/ v02=025 PSK0002 Paulina S. Knibbe 30-Mar-1981 ; 
; 180 180 1! Add support for random searching of PLG3 buckets with ; 
; 13) : 1 : fixed length keys. : 
; 188 0 $ ji v02-024 PSK0001 Paulina S$. Knibbe 19-Mar-1981 | ; 
3 Y 184 1! Change index bucket VBN processing to handle VBN Lists : 
: 18) 4 5 : at end of bucket : 
; HH a18? : VO2-023 REFORMAT Keith B. Thompson 23-Jul-1980 3 
: 189 0189 1 | REVISION HISTORY: ; 
; 190 0190 1! : 
; «64191 0191 #1! Christian Saether 27-JUL-78 10:48 ; 
: 135 3136 1! %0002 = SRCH_BY_KEY changed to store last record address for ; 
; («19 0193 1! ADD_TO_ARRAY : 
3: (194 0194 1! s 
; ©4195 0195 1! Christian Saether, 9-AUG-78 11:55 3 
; 196 0196 1! Xx0003 - never return RNF on POSINSERT 3 
: 197 0197 1! | ‘ 
; 4198 0198 1! Wendy Koenig, 11-AUG-78 14:10 3 
3 1 Hh ’ x0004 = only lock the root if it is the lock-above or stoplevel level : 
; $5 0201 1: Christian Saether, 14-AUG-78 10:21 ; 
3 $06 S34 : x0005 = add code to disable RNF on position for insert : 
: 204 0204 1: Christian Saether, 24-AUG-78 9:39 : 
: 05 344 1 X0006 - Add POSDELETE to SEARCH_TREE : 
; 206 0206 1! : 
: 207 0207 1! Christian Saether, 24-AUG-78 19:41 . : 
; 208 0208 1! x0007 = Correct logic error horizontal positioning on insert across 3 
3 4 os0R ! empty buckets : 
: 211 $514 1! Christian Saether 26-SEP-78 15:57 ; 
3 \¢ O55 : x0008 - never do lock_above on position for delete : 
: 214 0214 1! D. H. Gillespie, 6-OCT-78 17:34 ae ; 
3 15 7 3 x0009 = fix ug when positioning for insert and entire file is empty : 
3 18 $1$ : from where search started and end ; 
: 218 O18 | i Christian Saether, 9-0CT-78 12:10 ; 
: 219 0219 1! x0010 = reverse usage of EMPT_SEEN and EMPTY_BKT sco EMPTY_BKT is not : 
3 31 : } clobbered while searching index levels | ; 
: g eg i Wendy Koenig, | 24-OCT-78 14:03 ; 
3 ? ? : X0011 = make changes caused by sharing conventions : 
: 5 5 5 1! Christian Saether, 27-OCT-78 15:09 ; : 
, 2 03 § ' : x0012 - qe net set DUPS_SEEN if the record is deleted on position for ; 
: 228 81: : 
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CRO 
L_HIGH_KEY = 
RLSHIGH_KEY = JSB()2; 
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Linkages 


: 31} SBOINTESSGEEET teen a Z;QESGZ% 22:12, aupen = ents an been ta : 
3 ; - se always when passin es - s has been taken ; 
; 931 et out 12/18/98 MY cpr nae 
; : : ii Christian Saether, 15=DEC-78 11:17 F 
: ¢ ¢ : } X0014 = mask split_bits in csearch_tree before calling search_tree : 
: 236 0 $ ] i Christian Saether, 9-JAN-79 12:08 F 
; 7 7% X0015 = on lock error going horizontal, reread bucket with lock to ° 
; : 8 : : } force stall : 
: 240 0240 1 i Christian Saether, 15-JAN-79 18:22 ; 
: re. rt ' X0016 = modify lockabove logic to avoid deadlocks | : 
: rk 0 rk 1} Chrigtion Saether, 20-JAN-79 20:18 : 
; te 8 rf: : X0017 = confirm level 1 down pointer before going across level 0 : 
; 46 0246 i Wendy Koenig. 25-JAN-79 14:21 ; 
; sie : of : x0018 = zero MIDX_TMP1 : 
: mk: 0249 1: Christian Saether, 24-JAN-79 11:25 ; 
; 250 0250 1! X0019 = set up bkt_addr after releasing empty bucket when going across : 
; $2) 8 23 : } at data level : 
; $38 o583 | | Christian Saether, 26-JAN-79 9:49 ; 
; 254 0254 1! X0020 = only clear splits bits when coming around from data level, | ; 
; $2? BSée ; } take out going across at data level kluge | : 
: 257 $528 1 Christian Saether, 6-FEB-79 17:42 ; ; 
3 33 osa6 ; } X0021 = do not look at owner of bdb to make lockabove decision : 
; 266 0260 1! Christian Saether, 14-FEB-79 14:05 ; 
3 e ages : } X0022 = always go across data level primary key dupes : 
; 8 0368 1 ieenee : 
; 264 64 =«*I : 
; 265 0265 1 LIBRARY ‘RMSLIB:RMS'; 3 
; 266 0 06 1 3 
; 67 8 3 ' REQUIRE "RMSSRC:RMSIDXDEF'; : 
: 03 ; 1 ! define default psects for code | : 
; 0334 1! 3 
$ 0335 1 PSECT 3 
; ; 1 CODE = RMSRMSS(PSECT_ATTR), : 
s 3 : PLIT = RMSRMSS(PSECT_ATTR); : 
; 1 ; 
3 1 : 
3 1 3 
5 1 ; 
3 1 : 
s 1 3 
3 1 3 
3 1 : 
2 1 3 
s 1 é 
5 1 : 
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04 -Sep-1984 RMS .SRCIRMSSRCHKY.832; (1) | 

; 66 0 1 L_CACHE 3 
; 8 1 1 L“COMPARE_KEY, | ; 
; 8 ¢ 1 L-HIGH KEY : 
; 289 1 L“PRESERVE1 ; 
; 290 A j LTRABREG_4967, : 
; 291 5 1 L“RABREG_457, ; 
> 29 5 1 LTRABREG~967, | : 
5 a 1 L RABE S.8 ° | ; 
: 294 8 1 L“RABREG~7, | ; 
: 295 0359 1 L-REC_OVAD; 3 
3 39 0360 1 3 
; o 7 | 3 
; 298 § 1 ! Forward Routines 3 
8 99 65 1! s 
; 500 8 64 1 3 
; 301 65 1 FORWARD ROUTINE 3 
3 Og 0 4 1 RM$V3_VBN : RLSRABREG_567; 3 
; 30 0367 1 3 
; 304 0368 1! $ 
3 305 0369 1 ! External Routines 3 
3 06 0370 1! F 
; 307 0371 #1 3 
3 08 B36 1 EXTERNAL ROUTINE g 
3 09 b3e 1 RMSCACHE : RLSCACHE ADDRESSING_MODE( GENERAL ), b 
3 10 0374 1 RMSCNTRL_ADDR : RLSRABREG_ 567, : 
: 311 0375 1 RMSCOMPARE_KEY : RLSCOMPARE Key. 3 
3 \¢ 0376 #1 RMSGETBKT : RLSRABREG_&5 ‘ $ 
3 1 0377 1 RMSKEY_DESC LSRABREG 7, é 
: 14 bare 1 RMSREC D LSREC_OVHD 

: 315 0379 1 RMSRECORD_VBN RLSPRESERVE1, 

3 16 0380 1 RMSRLSBKT : RLSPRESERVE1 

; 317 0381 1 RMSSRCH_CMPR : RLSRABREG_567; 

; 318 O38¢ 1 | 

: 19 St 1 LITERAL 

; 320 384 1 LS = -1, | 

3 21 0385 1 6T = 1, 

; 322 0386 1 EQ = 0; 


IMPLICIT OUTPUTS: 
REC_ADDR EQ, address of index record equal to search key 

GT, at end of record data in bucket 

iS. address of index record greater than search ped 

TJ] = Number of the record who address is in REC_ADDR 

t if goal is gt and we found an eq match 
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: 7 ROUTINE SEARCH_FIX (GOAL) : RLSRABREG_567 = 
$ 5 ee 
8 0 4! SEARCH_FIX 
0 38 ' This routine searches a PLG3 fixed Length key index bucket from 
1 0394 : the current record address to the end of the bucket for an index 
¢ 8 2? } record equal or greater than the input search key. 
4, 0 39 ' CALLING SEQUENCE: 
5 0 98 1! SEARCH_F IX 
6 99 ! 
7 0400 ! INPUT PARAMETERS: 
8 0401 ! : 
39 040 : GOAL - 0 = be satisfied with an equal match 
7 Bees - 1 = position past an equal match (search for GT match) 
4 0405 1! IMPLICIT INPUTS: 
34 0406 : REC_ADDR - address of record in bucket to begin search on | 
44 40 : BKT_ADDR - address of current bucket 
0 : IDX_DFN - address of index descriptor for current key of reference 
4 0 : IR - address of internal RAB 
4 1 ; IRABCIRBSV_SRCHGT) - if set, search for index record gt search key 
34 1 ! IRABLIRB$V_POSINSERT] - if set, search for position to insert record 
34 1 : IRABCKEY BOFFER 2) - address of search key 
2 : IRABLIRBS$B_KEYSZ - size of key to compare 
1 i QUTPUT PARAMETERS: 
1 NONE 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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PROPOPOMORSRORNONONNY = 2 tt = 0 
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6 ROUTINE VALUE: 
6 RO - 0, search key = index record 
64 - -1, search key < index record 
- +1, search key > index record 
: SIDE EFFECTS: 
3 lee 
; BEGIN 
3 EXTERNAL REGISTER 
3 R_IRAB_STR, 
“IFAB-STR 
04 R-1DX_BFN_STR 
439 R~BKT~ADDR_STR, 
440 R~REC"ADDR~STR; 
0441 
044 LOCAL 
044 STATUS, ! place to hold results of compare 
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14-Sep-1984 RMS. SRC (2) 
; 381 444 RSTART, ! address of first record in range | 
; 445 REND, ! address of last record in range 
3 7 bee$ E0B; ! address past last record in bucket 
: 385 0448 2 EOB = .BKT_ADDR + .BKT_ADDR CBKT$W_FREESPACE); | 
; 386 0449 RSTART = .REC_ADDR; 
: Hl peed REND = .E0B; 
; 389 pres ! Do a binary search of fixed length index records | 
; 390 045 : | 
; 2 0454 
; 39 Bee WHILE 1 DO 
: 9 456 BEGIN 
3 94 0457 LOCAL 
; 395 0458 SIZE; ! Number of characters in range 
; 396 0459 
; 397 0460 BUILTIN 
; 398 0461 3 
; 399 Bees 
; 400 046 SIZE = .REND - .RSTART; 
; 401 0464 REC_ADDR = (.RSTART + (.SIZE*=1) / .IDX_DFNCIDX$B_KEYSZ] * .IDX_DFNCIDX$B_KEYSZ]); 
: 40 0465 AP = 3; ! Contiguous compare 
; 40 0466 3 STATUS = RMSCOMPARE_KEY (.REC_ADDR, KEYBUF_ADDR(2), .IRAB CIRBSB_KEYSZ]); 
; 405 0468 3 CASE .STATUS FROM LS TO GT OF 
: 406 0469 3 SET : 
; 407 0470 3 CLS]: ! Search key is < record in bucket 
; 408 0471 3 ' prepare to search low half of bucket 
: 409 0472 3 ! 
; 410 0473 4 BEGIN 
s 611 0474 4 REND = .REC_ADDR; 
3 716 0475 4 
3 61 0476 4 IF .REND EQL .RSTART 
; 414 0477 4 THEN 
; 415 0478 4 : , 
: 416 0479 4 ! Only one record left and we just compared it 
: 417 0480 4 : 
; 418 0481 4 EXITLOOP; | 
: 419 0482 3 END; 
: 420 0483 3 f 
: 421 0484 3 CEQ): ! Search key = record in bucket 
: 422 0485 ; ! 
; 423 0486 : GENERIC SEARCH GOAL IS EQ MATCH : 
; 424 0487 ! yes yes search previous 
: 425 0488 : yes no search next 
: 426 0489 ! no yes return 
: 427 0490 ! no no search next 
: 428 0491 3 ! 
2 $$3 0492 4 BEGIN 
: 430 04935 4 
; «431 0494 4 IF .GOAL EQL EQ 
: $36 0495 4 
; $32 94) 2 IF .JRAB CIRBSB_KEYSZ) EQL .I1DX_DFN CIDX$B_KEYSZ) 
; 435 498 4 EXITLOOP 
: 436 0499 4 ELSE 
3 437 0500 4 
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' 
! 

: 438 8 1 4 ! generic equal match. we must postion to the previous 

; 439 5 g 4 ' record in order to find first equal match 

: 440 05 4 : 

> 441 0504 BEGIN 

3; «44 B20? 

> 44 506 IF (.REND = .RSTART) EQL .IDX_DFN CIDX$B_KEYSZ] | 

> 444 0507 THEN 

: 445 0508 EXITLOOP; 

: 446 0509 

: 447 0510 6 IF (.REND = .RSTART) EQL (.IDX_DFN CIDX$B_KEYSZJ“1) 

: 448 0511 «5 THEN 

3; 449 bal¢ 2 REND = .REC_ADDR 

: 450 051 ELSE 

; 451 0514 5 REND = .REC_ADDR + .IDX_DFN CIDX$B_KEYSZJ; 

; +26 0515 5 END 

; 45 0516 5 

; 454 0517 4 ELSE 

: 455 0518 4 

; 456 0519 4 ! Search past the equal match 

: 457 0520 4 i 

; 458 0521 5 BEGIN 

: 459 0522 5 : 

; res B3¢7 : | If there is another record in the bucket, compare it 

; 462 0525 5 REC_ADDR = .REC_ADDR + .IDX_DFNCIDX$B_KEYSZ]; 

: 463 0526 5 

: 464 0527 5 IF .REC_ADDR EQL .EOB 

: 465 0528 5 THEN 

; 466 B26? 5 STATUS = GT | 

: 467 0530 5 ELSE 

; 468 0531 5 STATUS = LS; 

; 469 bae6 5 

; 470 0533 5 EXITLOOP; 

: 471 0534 5 END 

; 472 0535 ; END; 

: 473 0536 : , 

: 4764 0537 3 (GT): ' Search key is > record in bucket 

3: 475 0538 3 : 

; 476 0539 4 BEGIN 

; rth eet ? REC_ADDR = .REC_ADDR + .IDX_DFNCIDX$B_KEYSZ); 

3; 479 0542 4 IF (.REND = .RSTART) LEQ (.1DX_DFNCIDX$B_KEYSZ])*1 

: 480 0543 4 THEN 

: 481 B2ee 4 ; 

3; 482 545 4 ! We just compared the last record in the range 

: 483 0546 4 ' If this is the last record in the bucket, return 

3: 6486 0547 4 ! with a GT status. 

; «4485 0548 4 : 

; 486 0549 4 

: 487 0550 4 IF .REND EQL .E0B 

; 488 B22) 4 

: 489 236 4 EXITLOOP 

: 490 553 4 SE 

; 491 554 4 ! We are not at the end of bucket so we know that 

3; 492 555 4 ' we must have done an earlier compare against the 

3 493 8228 4 ' Low record of the next range and got an LS result. 

3: 494 0557 4 ' Return that record. 


ee L 
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; 495 4 ' 
i 482 226 BEGIN 
: 497 560 STATUS = LS; 
: 498 561 EXITLOOP; 
: 499 26¢ 4 END; 
; 20 aa d 1p h high half of buck 
3 ; repare to searc a 0 ucket 
: Be gses 4  ccalsinaae loses 
; 504 oe69 3 END; - : 
; 205 0968 oa TES; 
3 209 b2S8 
; 508 0571 ' We now have a record of some sort. 
; 509 p25§ ! Compute the record count so that we can Later pick up the VBN portion 
3 219 Bat? of the record from the end of the bucket 
: 212 0975 IRABCIRBSL_REC_COUNT] = (.REC_ADDR-.BKT_ADDR-BKTSC_OVERHDSZ)/.1IDX_DFNCIDX$B_KEYSZ); 
; 514 0577 2 RETURN .STATUS: 
; 515 0578 1 END; 
.TITLE RM3SRCHKY | 
-IDENT \V04-000\ | 
.EXTRN RMSCACHE, RMSCNTRL_ADDR 
[EXTRN RMSCOMPARE KEY, RMSGETBKT 
-EXTRN RMSKEY_DEST, RMSREC_OVHD 
~EXTRN RMSRECORD vine RMSRCSBKT 
-EXTRN RMSSRCH_CAPR | 
-PSECT RMSRMS3,NOWRT, GBL, PIC,2 | 
091C 8F BB 00000 SEARCH_FIX: 
PUSHR #*M<R2,R3,R4,R8,R11> : 0387 
50 04 AS 3C 00004 MOVZWL 4(BKT_ ADDR), : 0448 
6045 9F 00008 PUSHAB (RO) CBKT_ADDR) : 
58 56 DO 0000B MOVL REC_ADDR> RSTART + 0449 
52 6E D0 0000€ MOVL. £OB; REN : 0450 
54 52 58 C3 00011 1$: SUBL3 RSTART REND, R4 > 0463 
50 54 00 00015 MOVL SIZE F 
50 50 FF BF 78 00018 ASHE ef RO > 0464 | 
51 20 A? 9A 9901p MOVZBL 33¢ipx. SFA R1 ; 
50 51 C6 0021 DIVL : | 
53 20 AZ 9A 00024 MOVZBL 33C1Dx_ DFN), R3 : 
20 53 C4 00038 MULL R ; 
56 0 58 C1 00028 ADDL RSTART. RO, REC_ADDR ; 
5c 03 90 0000 MOVL A : 0465 | 
53 00B4 CA 3C 000 é MOVZWL 180(IFAB), R3 > 0466 | 
53 60 Ad CO 990 ADDL2 96(IRAB) ; 
50 00A6 C9 9A 0003B MOVZBL 166(IRABS, RO : 
51 56 0 9040 MOVL REC_ADD : 
00006 004 BSBW § RMSCOMPARE_KEY ; | 
58 50 DO 00046 MOVL RO, STA ; 
02 FFFFFFFF BF 5B CF 00049 CASEL 3! TATUS, #-1, #2 > 0468 
0051 0010 0006 00051 2$ WORD -2$ ; 


RM3SRCHKY 
v04-000 


54 20 =A? 
50 

50 

50 

0094 (C9 


; Routine Size: 225 bytes, 


; $6 0579 #1 


20 «A? 


VA 
moo-oe 


Routine Base: 


2 dO 60037 
D1 OOO5A 
e 12 00050 

4 11 0005F 

1C AE D5 00061 
2B 12 00064 

00A6 £3 91 00066 
? 13 0006C 

00 Fe O06E 

4F it 

20 A? YA 00076 
01 78 QO07A 

54 D1 QO07E 

05 12 00081 

38 DO 00083 

9 11 00086 

20 A? 9A 00088 
56 CO 0008C 

80 11 0008F 

20 A? 9A 00091 
50 CO 00095 

56 D1 00098 

1€ 12 00098 

01 00 0009D 

23 11 OOOA0 

20 A? 9A OO0A2 
50 CO 000A6 

20 A? 9A O00A9 
01 78 OOOAD 

54 01 00081 

QA 14 00084 

52 D1 00086 

QA 13 00089 

01 CE 00088 

05 11 OOOBE 

56 DO 000C0 

C1 11 000C3 

55 ¢3 000C5 

of C2 000C9 

20 A? 9A QOOCC 
a 5 iss 

st 8 Biss 
O91C =BF BA 000DC 
5 000E0 


RMSRMS3 + 0000 
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DDR, REND 
RSTART 


=$3 
, 
B, 
(IRAB), 32(1DX_DFN) 
#8, 32(IDX_DFN), R4 
32(IDX_DFN), RO 

#1, RO? RO 

Rg, RO 

REC_ADDR, REND 


32(IDX_DFN), REND 
REC_ADBR, REND 


32(IDX_DFN), RO 
RO, REC_ADDR 
REC_ADDR, E08 
STATUS 


IDX_DFN), RO 
DR 


20 
41 
4$ 
8$- 
REC 
REN 
1$ 
11$ 
GOAL 
18 
8 
11§ 


_ADDR, RSTART 


-ADDR, REC_ADDR, RO 
DX_DFN), R1 
RO> 148(IRAB) 

S; RO 
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; 518 580 1 ROUTINE SEARCH_V2 (GOAL) : RLSRABREG_567 = 3 
3 319 581 1 lee $ 
; 0 5 § 1} ; 
3 1 82 7 : } SEARCH_V2 : 
3 g p28? 1! This routine searches a prologue two bucket or a prologue 3 data level : 
> 524 288 Zz bucket (primary or SIDR) with non-compressed keys for a record whose $ 
; 2 ? Tet 1} value is equal or greater than the search key. $ 
3 i! 3 
Ser 0589 1 ! INPUT PARAMETER : 
; 528 0590 1! 3 
; 529 823) 1! GOAL - 0, return if you find an equal or greater than match 3 
$ 2 , bees : } - 1, return only with a greater than match : 
; 332 0594 1 { IMPLICIT INPUTS: ; | ; 
; 35 0595 1! EC_ADDR - address of record in bucket to begin search on : 
> 534 0596 1! BKT_ADDR - address of current bucket : 
3 S39 0597 1! IDX_DF - address of index descriptor for current key of reference $ 
; 536 0598 1! IRAB - address of internal R ; 
s Dor Gory 1: IRABCIRB$V_SRCHGT) - if set, search for index/data record gt search key ; 
: 538 0600 1! IRABLIRBSV ay - if set, search for position to insert record F 
: 539 0601 1! IRABCKEY BOFFER - address of search key 3 
; 540 beng 1! IRABLIRBS$B_KEYSZ - size of key to compare | F 
3 23 peer : IFABCIFB$B_PLG_VER] - prologue version number 3 
: 543 0605 1 ! OUTPUT PARAMETERS: : 
> 544 0606 1! NONE : 
: 545 0607 1! 3 
> 546 0608 1 ! IMPLICIT OUTPUTS: 3 
: 547 0609 1! REC_ADDR - if EQ, address of index/record equal to search key : 
>; 348 0610 1! - if GT, at end of record data in bucket : 
> 549 0611 1! - if LS, address of index/record greater than search key : 
; 550 0612 1! f DUPS_ SEEN J] = set if duplicates seen when SRCHGT set | 3 
3 39) 06135 1! DUP_REY - set if a duplicate key is seen when SRCHGT is set : 
: 226 pele ! IRBSL_LST_NCMP = Address of last record in bucket if search key > data record 3 
3 554 0616 1! 3 
3 6395 0617 1 ! ROUTINE VALUE: 3 
:; 556 0618 1! RO - 0, search key = index/data record 3 
a Dor 0619 1! - -1, search key < index/data record 3 
; 558 0620 1! - 1, search key > index/data record F 
3; 559 0621 1! 3 
: 560 bese 1 ! SIDE EFFECTS: : 
3 fe) 33 . 3 RRV are skipped 3 
s Jee 0624 1! AP is clobbered 3 
: 563 0625 1! ; 
3; 564 0626 1 !-- : 
; 565 0627 2 BEGIN | : 
; 566 0628 3 
: 567 0629 EXTERNAL REGISTER 3 
; 568 36 0 _IRAB_STR, 3 
: 569 631 R_IFAB_ST 3 
; 570 : “1DX_DFN STR ; 
: 571 6 “BKT~ADDR_ ; 
; 37¢ 634 R7RECADDR=STR; ; 
, oF 0635 3 
: 4574 0636 3 
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AP; 
LOCAL 

OVHD, 

TOTAL_SIZE, 

STATUS, 
EOB = .BKT_ADDR + .BKT_ADDR CBKT$W_FREESPACE); 
peoee »«REC_ADDR LSSA .E0B 


BEGIN 
AP = 3; ! Initialize for a contiguous compare 
BEGIN 
LOCAL 
REC_SIZE; 


! Search for the ist record whose key is greater than or 
equal to the search key 


IF (REC SIZE = .BKT_ADDR CBKTS$B_LEVEL]) EQL 0 


We have a data record, check if it is an RRV 
BEGIN 
IF .BKT_ADDRCBKTSB_INDEXNO) EQLU 0 
ghEC ABER CIRC$V_RRVI 
RETURN GT; 
Nope. Do the setup for compare 
IF .IDX_DFN CIDXSB_KEYREF] NEQ 0 
THEN 
We have a SIDR data record, set REC_SIZE to -1 as flag 
REC_SIZE = .REC_SIZE - 1 
ELSE 
We have a primary data record, set AP to 2 as flag 
AP = .AP - 1; 


: Now get the number of bytes of overhead for this record 
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; 6 ¢ 694 4 OVHD = RMSREC_OVHD(.REC_SIZE; REC_SIZE); ; 
3; 6 695 4 TOTAL SIZE = .OVHD + .REC_SIZE; 5 
; 6 : 696 END; T of block defining rec_size ; 
3 86 $ Boos ! Do the comparison Raney 6 But first set AP to contiguous compare F 
3 ? Ms 8985 } again, since the primary key is extracted at the front of the record. : 
; 639 0701 $ 
; 640 144 IF .IFABCIFBSB_PLG_VER] EQLU PLGS$C_VER_3 | : 
; 641 070 THEN $ 
; & 0704 AP = 3; : 
: 64 8782 3 
> 644 706 STATUS = RMSCOMPARE_KEY (.OVHD + .REC_ADDR, F 
; 645 0707 KEYBUF _ADBR(2) 3 
: 646 0708 .IRAB CIRB$B_KEYSZ)); | ; 
; 647 0709 F 
: 648 0710 IF .STATUS LSS 0 $ 
; 649 0711 : 
; 650 aris RETURN .STATUS; 3 
; 651 071 F 
: O26 0714 IF .STATUS EQL 0 3 
; 65 prt? : 
: 654 716 IF .GOAL EQL 0 ‘ 
3 635 0717 | 3 
3 626 0718 RETURN EQ F 
3 6 0719 ELSE ; : 
; 658 0720 : We have an equal match but were looking for a GT match. ; 
; 659 0721 ! Go get the next record and continue comparison (this will 3 
; 660 bse 3 ! position past all duplicates). F 
; 661 0723 3 ! F 
; 66 0724 4 BEGIN : 
: 66 0725 4 IRABCIRB$V_DUP_KEY] = 1; 3 
3 +e; 0759 ? IRAB CIRBSC_LST_REC] = .REC_ADDR; 3 
; 666 te 5 IF (.BKT_ADDRCBKTSB_LEVEL] EQLU 0 3 
: 667 169 5 F 
; 668 0730 5 -BKT_ADDRCBKT$B_INDEXNO] NEQU 0) 3 
; 669 0731 4 OR g 
: 670 O7 36 5 NOT (.REC_ADDRCIRC$V_DELETED) 3 
: 671 0733 5 ; 
; 67 Or ee 5 -REC_ADDRCIRC$V_RU_DELETE]) : 
3 67 0735 4 THEN 3 
3: 674 736 4 IRAB CIRBS$V_DUPS_SEEN] = 1; : 
; 675 3 D: | 3 
3; «467 738 3 
3; 67 0739 REC_ADDR = .REC_ADDR + .TOTAL_SIZE; g 
; 678 0740 END; 3 
; 679 15% . 3 
; 680 reg ! We have a GT match. Save the address of the last record in 3 
3 pet Ber } the bucket (we are positioned past it now). 3 
3 oe; re? IRAB CIRBSL_LST_NCMP] = .REC_ADDR - .TOTAL_SIZE; 3 
; «685 74 RETURN GT 3 
; 686 748 END; 3 
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091C  8F BB 00000 SEARCH_V2: | ; 

PUSHR #*M<R2,R3,R4,R8,R11> : 0580. ; 

58 04 AS 36 004 MOVZWL 4(BKT_ADDR), E08 + 0645 | ; 

58 C 08 ADDL2 BKT_ABDR, £08 : ; 

58 6 D1 00008 1$: CMPL = REC“ADDR. E08 > 0647. ; 

if 00 BGEQU 10S : ; 

5¢ 03 0 0001 OVL. #3, AP : 0651 | : 

51 Oc a5 9A 0001 MOVZBL 12(BKT_ADDR), REC_SIZE : 0662 ; 

14 fF 901 NEQ  4$ : | ; 

01 aS 95 00019 TSTB =: 1 (BKT_ADDR) + 0669 | : 

04 12 0001C BNEQ 2$ : ; 

6F 66 03 f 001 BBS #3, (REC_ADDR), 11$ + 0671 : 
21. A? 0022 2$: TSTB 33 (1DX_DFN) + 0678 : 

4 13 000 BEQL 3 : : 

1 07 00027 DECL REC_SIZE + 0683 ; 

02 11 900 9 BRB 4$ : ; 

5¢ v7 0028 3$: DECL AP > 0689 ; 

00006 30 0002D 4$: BSBW  RMSREC_OVHD > 0694 ; 

6 50 00 00 9 MOVL : | ; 

58 5 51 ¢1 000 ADDL3 Ret SIZE, OVHD, TOTAL_SIZE > 0695 ; 
0 0087 CA 91 00037 CMPB Es STIFABS, #3 : 0702 : 

03 12 0003Cc BNEQ : | ; 

5¢ 03 00 0003€ MOVL #3, AP > 0704 ; 

5 0084 CA 3C 00041 Ss: MOVZ2WL 180(IFAB), R : 0707 ; 

53 60 AI CO 00046 ADDL ¢ 96(IRAB), : ; 

51 52 56 C1 OO04A ADDL3 REC_ADDR. OVHD, R1 : 0706 | : 
50 00A6 C9 9A 00046 MOVZBL 166TIRABS : ; 

00006 30 0005 BSBW  RMSCOMPARE_KEY : : 

54 50 b 00056 MOVL RO, STATUS : | : 

05 18 00059 BGEG : 0710 ; 

50 54 00 00058 MOVL STATUS, RO : 0712 ; 

38 11 OOOSE BRB 13$ 5 3 

24 12 00060 6$ BNEQ + 0714 ; 

18 AE D 0062 TSTL GOAL : 0716 ; 

2F 1 94 BEQL 12$ 3 F 

43 Ad 01 88 00067 BISB2 #1, 67(IRAB) : 0725 ; 

4c AD 56 b 00068 MOVL Ret ADDR, 76(IRAB) : 0726 ; 

Oc AS 9 0006F TSTB =—- 12 (BKT_ADDR) : 0728 ; 

05 Ne 00 2 BNEQ 7$ : 3 

01 aS 95 00074 TSTB =: 1 (BKT_ADDR) : 0730 | : 

0 iF 90077 BNEQ : : 

09 66 E 79 7$ BBS #2, (REC_ADDR), 9$ : 0732 | : 
05 bt £0 007D BBS #5. (REC"ADDR). 9$ > 07364 | : 
44 AD 80 BF 8 0081 $ BISB2 #128, 68TIRAB) : 0736 : 

56 8 CO 00086 9$ ADDL2  TOTAL_SIZE, REC_ADDR > 0739 : 

80 11 00089 BRB > 0647 : 

0098 C9 56 C3 00088 10$: SUBL3 TOTAL SIZE, REC_ADDR, 152(1RAB) > 0745 | : 
50 1 0 0091 11$:  MOVL #i, RO > 0747. : 

: 11 094 BRB 13§ F | : 

D4 00 38 12$: CLRL RO : 0748 | : 

091c BF BA 0098 13$: POPR #*M<R2,R3.R4,R8,R11> : | : 

5 0009¢ RSB ; : 


; Routine Size: 157 bytes, Routine Base: RMS$RMS3 + OO0E1 


6 
1b-Se0-1986 02:06:20 yayet! Ot is4-32 v4.0-742 Page 


RMSSRCHKY 
04-000 


NONGNONUNONORONIND 2 


NNNNNNNANNNSNNSSS SSS 
WW WAALS 
NOUS WN $9 ODBNOU SEWN OC OONOUES WN 


738 


OOOCCCCCCOOCO 


PBAEREQLXAEALRA MANNII 
NOUS WN (OOD NOUES WOO 


OOCCOOSCOCOOSCOOCOCSOCOCCCOSOOOOCOCOCOOOOCOOCOOOCOOO 


PROPOPOPOROPONONONONONY 2 2 tt 
- 


GL 
'¢ 


OBAL ROUTINE RMSSRCH_BY_KEY 


RMSSRCH_BY_KEY 


pa19B6 S201 sat 


t RLSRABREG_567 = 


ane Bliss-32 V4.0-74 
RMS .SRCIRMSSRCHKY .B32; 


This routine searches a bucket from the current record address 
for an index/data record equal or greater than the input search key 


CALLING SEQUENCE: 
RMSSRCH_BY_KEY() 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
RE R 


IRAB IRESY POSINSERT3 
IRABCKEY BOFFER 
IRABCIRBS$SB_KEYSZ 


OUTPUT PARAMETERS: 
NONE 


IR 
lest SRCHGTJ 


IMPLICIT OUTPUTS: 
REC_ADDR 


IRAB [ EMPT_SEEN 
DUPS SEEN j = set 


ROUTINE VALUE: 
RO 


address of current bucket 


address of interna 
if set, search for index/data 


address of search key 
size of key to compare 


address of record in bucket to begin search on 
address of index iS aed for current key of reference 


record gt search key 


if set, search for position to insert record 


address of index/record equal to search key 


at end of record data in bucket 


address of index/record greater than search key 


if no data records encountered 


if duplicates seen when SRCHGT set 
if duplicate key seen when SRCHGT is set 


- 0, search key = index/data record 


- -1, search key < index/data record 


o qj, 
SIDE EFFECTS: 


RRV are skipped 
AP is clobbered 


BEGIN 


EXTERNAL REGIST 
OMMON_RAB 
DDR_ 
DDR 
~DFN_STR; 


search key > index/data record 


' Type of bucket we are searching 


! Flag to say ‘search past dups' 
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; 745 STATUS; ' Result of a given compare 3 
re oF u give p 
: 748 $8 ! If the record we are about to look at is an RRV, then we have an ; 
; £38 i? empty bucket. : 
3 731 1g iF .BKT_ADDRCBKTSB_LEVEL] EQL 0 | : 
: Fag 14 .BKT_ADDREBKTSB_INDEXNO] EQLU 0 ; 
; 7546 313 THEN 3 
; 755 0 18 BEGIN 3 
3 228 ba LOCAL $ 
3 ays pais CNTRL: REF BBLOCK; ! Control byte for Ist record : 
: 759 0820 CNTRL = RMSCNTRL_ADDR(O); 3 
: 760 0821 3 
; 761 08 ¢ IF .CNTRL CIRC$V_RRVJ é 
; 76 08 THEN 3 
; 76 0824 4 BEGIN 3 
; 764 0825 4 IRAB CIRBSV_EMPT_SEEN] = 1; ; 
; 765 oB5$ 4 RETURN GT : 
; 766 0827 ; 3 
; 767 0828 END; 3 
: 768 eth ; 3 
: 769 0830 ! Should we be satisfied with an equal match or continue searching ; 
; 770 0831 ! for a greater than match ? : 
3 771 th ! 3 
:; 77 083 GOAL = EQ; 3 
3 77 0834 3 
3; 774 0835 IF .IRAB CIRB$V_SRCHGT) a 
3 46} te: a (.IRAB CIRBSV_POSINSERT] AND .BKT_ADDR CBKTS$B_LEVEL] EQL 0) : 
: 777 0838 GOAL = GT; ; 
; 778 0839 3 
; 779 0840 ! Now actually search the !!!!aa## bucket ; 
: 780 0841 ' First find out what kind of bucket it is 3 
3: «781 pate ! 3 
: 7 084 5 
; 0844 If .BKT_ADDR CBKTSB_LEVEL] EQL 0 $ 
3; 784 0845 THEN 3 
: 785 0846 BKTYP = .IDX_DFN CIDX$B_DATBKTYP] | : 
3; 786 0847 ELSE . 
; 187 0848 BKTYP = .IDX_DFN CIDX$B_IDXBKTYPI; ; 
; a 0850 CASE .BKTYP FROM IDX$C_V2_BKT TO IDX$C_NCMPNCMP OF | 3 
3 3 
3 ad 0836 IDX$C_V2_BKT): } Prologue two index bucket. | : 
: 798 0854 STATUS = SEARCH_V2 (.GOAL); | 3 
: a $28 CIDXSC_CMPIDX): Prologue three compressed index bucket. | : 
: 799 838 STATUS = RMSSRCH_CMPR (.GOAL); | 3 
; 799 860 CIDXSC_NCMPIDX]: ! Prologue three noncompressed index bucket. | : 
: BO! 52 STATUS = SEARCH_FIX (.GOAL); | : 
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v04=000 ergo 71982 F888: 2o | HANS ABs Sec ae Wt 03008 ~~ 45) 
; 80 63 
Fy $8 64 CIDXSC_CMPCMP]: ! Prologue three primary data bucket. 
: Spe 92 Primary key is compressed, data 3 compressed. 
; 8 bey Prologue 3 compressed SIDR bucket. 
: 3 4 STATUS = RMSSRCH_CMPR (.GOAL); 
; 810 + a CIDXSC_CMPNCMP]: ! Prologue three primary data bucket. 
: ae Bar8 "Primary key is compressed, data is NOT compressed 
: B18 Oeee STATUS = RMSSRCH_CMPR (.GOAL); 
; 815 0876 CIDXSC_NCMPCMP]: ! Prolo@we three data bucket 
: 518 + 144 } Primary key is NOT seneresend, data is compressed 
: 818 0879 i Prologue 3 noncompressed SIDR bucket. 
B19 0880 i ’ : 
: ast ert 2 STATUS = SEARCH_V2 (.GOAL); 
; HE 0888 ; CIDXSC_NCMPNCMP) : ! Prologue three data bucket. 
: BS? tt ! Primary key is NOT compressed, data is NOT compressed 
: 825 0886 : STATUS = SEARCH_V2 (.GOAL); 
: 826 0887 TES; * 
; 827 0888 2 
; 828 0889 2 RETURN .STATUS 
; 829 0890 1 END; 
OC AS 95 00000 RMSSRCH_BY_KEY: 
TSTB 12(BKT ADDR) ; 0812 
19 12 00003 BNEQ 1$ ; 
01 AS 95 00005 TSTB 1(BKT_ADDR) 3: 0814 
14 12 00008 BNEQ 1$ 3 
7E Be 0000A CLRL -(SP) ; 0820 
00006 30 0000C BSBW RMSCNTRL_ADDR 3 
5E 04 CO 0000F ADDL2 #4, SP 5 
08 60 03 4 00012 BBC #3. orm 1$ : 0822 
44 Ad 02 88 00016 BISB2 #2, 68 ABS : 0825 
50 01 BY BRO A MOVL “i, : 0826 
01D RSB 3 
51 D4 OOOIE 1$ CLRL GOAL ; 0833 
09 42 Ag 01 €E0 000 2 BBS #1, 66(IRAB), 2$ : 0835 
08 42 Ad €E9 000 BLBC 66(IRAB), 3 : 0836 
0c AS 95 00029 TSTB 12(BKT_ADDR) 3 
03 12 0002C BNEQ 3$ ; 
51 01 OD 38 E ¢: MOVL # AL : 0838 
Oc AS 95 00031 3$: TSTB {ote _ADDR) > 0844 
06 12 000 BNEQ 4$ F 
50 29 A? 9A 8 MOVZBL 41(IDX_DFN), BKTYP 3; 0846 
04 11 QOO3A BRB 5$ 5 
50 28 AZ QA 00035C 4$ MOVZBL 4OC(IDX_DFN), BKTYP ; 0848 
06 00 50 CF 00040 5$ CAS BKTYP, "#0, #6 : 0850 
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Ve=8ep=1984 13:01:41 EAMSs SRCIRMSSRHKY 03271 
ROUTINE RMSSEARCH_TREE : RLSRABREG_4567 = 

ag 

i FUNCTIONAL DESCRIPTION: 

This routine searches from the current record in the current bucket 

to the stop level requested for a data record /index equal to or 


reater than the search key. 
OTE: this routine should hover be called by an outside routine 


i CALLING SEQUENCE: 

i RMSSEARCH_TREE () 
i INPUT PARAMETERS: 

i NONE 


i IMPLICIT INPUTS: 
KT_ADDR 


youre? 
$8-K 


RRSSEEEEE 


I KEY 
I IRB 
I IRB 
I IRB 
I IR 
I IRB 
I IR 

I He “3h 
IRABCIRBSV_FIRST_TIM] 


IFABCIFBSB_EXTRABUF J 


IFABLIFBSV_RUJ 
IFABCIFB$V_WRTACC) 


i QUTPUT PARAMETERS: 
i NONE 


' 
' 
i] 
' 
1 
1 
' 
! 
' 
' 
' 
' 
i] 
' 
' 
' 
' 
' 
' 
' 
' 
' 
] 
' 
' 
‘ 
! 
4 
1 
' 
‘ 
' 
' 
‘ 
| IMPLICIT OUTPUTS: 

; IRABCIRBSL_CURBDB) 
IRABCIRBSL_LOCK 8DB) 
IRABL IRB$V_ABOVEL CKD) 
: IRABLIRBSV~DUPS_ SEEN] 
; IRABLIRB$V_DUP_KEY] 
IRAB CIRBSL_REC_COUNTI 
' 

i ROUTINE VALUE: 

i RMS$_RNF 

RMS$_SUC 


RMSCSEARCH_ TREE should be used in its place 


address of current bucket 

address of record in bucket to start search at 

address of index descriptor for current key of reference 
address of internal 

address of search key 

size of key to compare(not equal to key size if generic search) 
level to stop search at 


if set, this is a position for insert 

if set, this is position for delete 

if set, this is a GT approximate search 

if set, this is a GE approximate search 

if set, this is the first seq. positioning 
after a $connect or Srewind 

used to decide whether to try lockabove 


per formance optimization coming down tree 


set, file is RU Journallable 
if set, file is write accessed 


address of index/data record which terminated search 

address of current BDB 

address of current BDB 

address of level above current if locked 

set when level above data level locked 

set if non-deleted duplicate key encountered 

at data level on position for insert 

set if duplicate key encountered at data level 
on position for insert 

Set to the number of the record we found in 

a prologue three bucket 


record not found ‘ 
record found, in approximate search key 
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RM3SRCHKY 

v04-000 

3 9 949 
; 890 950 
: 83) 38) 
; 38 0388 
; 894 954 
; 895 0955 
; 896 B338 
: 897 095 

; 898 0958 
; 899 0959 
; 900 960 
; 901 961 
; 90 096 

; 90 096 

3 0964 
; 905 0965 
: 906 0966 
; 90 0967 
: 908 0968 
; 909 0969 
; 910 0970 
3; «911 0971 
: aig 097 

; (91 097 

>; «9146 0974 
: 915 0975 
: 916 0976 
: 917 0977 
: 918 0978 
: 919 0979 
: 920 0980 
: 921 0981 
; 356 098 

; 9e 98 

> 926 984 
: 925 0985 
3 358 0986 
: 927 0987 
; 928 0988 
: 929 0989 
: 930 0990 
3 oe 544 
3 338 839 

s 9 994 
; 935 995 
: 9 0 

; 93 099 

; 938 0998 
; 939 0999 
; 940 1000 
: «941 1001 
: ag 1906 
; 9% 100 

3: 944 1004 
; 945 1005 
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may not equal record/index key 
= on an horizontal search at level zero for position 
for insert, a lock error was encountered 


AX-11 gh -32 V4.0 
CHKY.B 


42 
RMS .SRCIRMSSRCH 1 


-7 
32; 


RMS$_RLK 
miscellaneous I/0 errors 


IRAB = may be clobbered at any Level 


SIDE “iaB f 
- may be clobbered at data level 


EMPT_ SEEN } 
EMPTY_BKT 


BUILTIN 
AP 
TESTBITSC: 

LOCAL 
V 


EXTERNAL REGISTER 
COMMON_RAB 
VBN = 0; 


dO 
BLK2 : 


if this is the Ist time, just get the 1st down pointer w/o searching 


IF NOT .JRABCIRBSV_FIRST_TIM) 
THEN 


ST = RMSSRCH_BY_KEY() 
ELS 


IRAB CIRBSL_LST_NCMP] = .BKT_ADDR + BKTSC_OVERHDSZ; 


! If the status is GT then no record in this bucket terminated the 
! search. Therefore search horizontally for termination record. 


RMS 
V04 


v04 14-Sep-1984 “RMS SAL RCHKY .B32; 


ae Sesep-19 4 a Be a=" rg ty Lede he Page a 


; 94 100 ! Also search horiz when skipping over dups on posit‘on for insert 

: 329 1997 a aches 

; 94 1008 ; 

>; 9% 1009 

; 920 13i9 IF .ST GTR O 

: Va 1011 THEN 

; 826 ISt¢ 4 BEGIN 

; 95 + 4 
; 954 1014 4 LOCAL 

; 955 1015 4 SIZE; 

; 956 1016 4 

; 957 1017 4 IF _.BKT_ADDRCBKTS$V_LASTBKT] 

; 958 1018 4 THEN 

; 959 1019 4 
; 960 1020 4 IF .IRABCIRBSV_POSINSERT) 

; 961 19s) 4 THEN 

; 10 ¢ 5 RETURN RMSSUC (SUC) 
: 96 1023 4 ELSE 
; 964 1024 4 RETURN RMSERR(RNF); 
; 965 1025 4 
>; 966 1026 4 BDB = .IRABCIRBS$L_CURBDBI; 

; 967 1027 4 SIZE = .BDBLBDBSW_NUMB); 

; 968 1028 4 

: 969 9 4 IF .VBN EQL 0 

: 970 1030 4 THEN 
; 971 1031 4 VBN = .BKT_ADDRCBKTSL_NXTBKT]; 
5 OF 198 5 IF (. IRABCIRBS$SV_POSINSERT] AND .BKT_ADDRCBKTSB_LEVEL] EQLU 0) 

> 974 1034 4 THEN 

3; 975 1035 5 BLK3 : BEGIN 

; 976 1036 5 

; ofr 1037 5 ! Check if we can insert the new key into the left 

; 978 1038 5 : hand bucket (the one we've got) or if we have to 

; WT 1039 5 : q° get the right hand bucket in order to make the 

; 980 1040 5 ! decision. 

; «981 1041 5 : 

; 982 1068 5 ! NEXT DOWN will be equal to -1 if none was saved, 

3; 983 1043 5 ' causing this test to fail. Once this test has been 

> 984 1044 5 ! made once, NEXT_DOWN is set to zero, again causing 

s 9e> 1045 5 ! failure on this test. 

; 986 1046 5 : 

; 987 1047 5 

; 988 1048 § IF .VBN EQLU .IRAB CIRBSL_NEXT_DOWN) 

; 989 1049 3 THEN ’ 7 

: 990 1050 5§ ' Horizontal pointer = down pointer 

: 991 1051 5 : 

; 99 1926 5 

; 1055 6 IF NOT (.IDX_DFN CIDX$V_DUPKEYS] AND .IDX_DFN CIDXS$B_KEYREF] EQL 0) 

> 994 1054 5 THEN ‘ E . 

s 995 1055 5 ! Not a primary data bucket with possible duplicates 

; 996 1056 5 : 

: 997 1057 5 RETURN RMSSUC(SUC); 

3; 998 1058 2 

3; 999 1059 ! If the file is being shared in any way, and the bucket 

; 1000 1060 2 ' in the Level above was not locked coming down the tree, 

; 1001 1061 ! we must re-access the level above to confirm that in 

: 1002 1062 5 ! fact a split has mot occurred and the level above index 
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16-Sep-1984 02:06: AX-11 Bliss-32 V4.0-74 
12-80-1382 96:88:29 AMS SREIRMESREHKY b30 04 
! bucket doesn't have a new key value in the pointer to 

! the bucket we are in. If this is not done, the horizontal 

i positionin logic that follows may cause the record to 

! be inserted such that it is not accessible by random access. 


! The following pictures illustrate. Assume 1 record per 
' bucket at the data level. 


‘9 {| level 1 Index looks Like this when comin 

coco down tree looking to insert an ‘'5'’. 
v 

"9°"; «data level 

d6°T 

iso" However, by the time that db 1 is actually 


accessed, it has split and the index updated. 
Yet, because the key value ‘'8'' is less than the 
- lowest key value in db 2, the position for 
H insert would be in db 1. cee ok the level 
1 bucket for key ‘'8'' will now find the correct 
2 down pointer to db 2. 


! If the down pointer from level 1 can not have changed, 
! either because the file is not shared or it is still 

' Locked, or it has already been checked once, then the 
check does not have to be made. 


IF .IFAB CIFB$V_NORECLK] 
OR .IRAB CIRBSV_ABOVELCKD] 


N 

BEGIN 

IF _.IRAB CIRBSL_NEXT_DOWN] NEQ 0 
THEN 


BEGIN 
IRAB CIRB$L_VBN_RIGHT) 
IRAB CIRBSL-NEXT DOWN] 
1RAB CIRBSL-VBN_CEFT) = 


0; 
0; 
-B0B CBDB$L_VBNI; 
LEAVE BLK3; 
ELSE 
! If NEXT_DOWN is zero, we've already been through 
} here once, so don't check again. 
IF .IRAB CIRBSL_NEXT_DOWN) EQL 0 
LEAVE BLK3; 


!' The VBN of the level 1 bucket has been saved in the 


vous000 VerSepmt9Be 18:01:61 EAMS.SRCIRASSACHKY 030; 


—Mm 


; 1060 1120 ! VBN_RIGHT field. Reaccess the bucket. Release the 
3 1903 1121 ' Level bucket and exit on errors. 

ss et , 

> 1064 P 1124 ST = CACHE (.IRAB CIRB$L_VBN_RIGHT] 

> 1065 1125 -1DX_DFN CIDR$B_TOXBKTS23*512); 

; 1066 11 $ IF NOT .ST 

3 106 11 THEN 

: 1068 1128 6 BEGIN 

: 1069 1129 6 BDB = 5 RAB CIRBSL_CURBDB); 

; 1070 1130 6 RASRL BK ); 

: 1071 1131 6 IRAB CIRBSL_CURBDB) = 0; 

3 1376 11 § 3 RETURN .ST; 

: ioc 1 4 , 

: 1075 1135 H ' Rescan the level 1 bucket just accessed. If the 
; 1076 1136 «65 !' key value is no longer in the bucket at all, then 
3; 1077 1137 : ' release both Level and Level 0 buckets and come 
; 1078 1138 ! down the tree from the top (returning RLK to CSEARCH_TREE 
: 1079 1139 5 ' does that). 

Be He . 

: 1088 1148 S REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 

: 108 1143 «5 IRAB CIRB$L_REC-COUNT) = 0; 

3 1084 1144 5§ IF RMSSRCH_BY_KEY() GTR 0 

: 1086 1146 3 THEN GIN 

: 1087 1147 6 ST = RMSERR(RiK); 

: 1088 1148 6 RMSRLSBKT (0): 

: 1089 1149 6 BDB = .IRAB CIRBSL_CURBDB); 

3 1090 1150 6 RMSRLSBKT (0); 

: 1091 1151 6 IRAB CIRBSL_CURBDB) = 0; 

: 1092 113¢ 5 RETURN .ST; 

: 1992 i132 3 y 

+ 1095 1155 5 ! At this point we've a down pointer in the same level 
3; 1096 1156 5§ ' 1 bucket. Check the pointer itself to see if it still 
: 1097 1157 5 ' points to the level 0 bucket we found before. 

: 1098 1158 5 i 

: 1099 1159 § 

: 1100 1160 6 BEGIN 

: 1102 1162 OCAL 

: 11 4 1188 6 LEVO_BDB : REF BBLOCK, 

3 BY 1198 ° LEV1_VBN; 

: 1106 1166 6 LEVO_BDB = .IRAB CIRBSL_CURBDB); 

st rt Ae 

: 1109 1189 6 IF .IFAB CIFBSB_PLG_VER] LSSU PLGSC_VER_3 

: wn 1171 6 LEV1_VBN = RMSRECORD_VBN() 

: 1118 1178 6 LEV1_VBN = RM$V3_VBN(); 

: 1115 1175 6 IF .LEV1_VBN NEQ .LEVO_BDB CBDBS$L_VBN) 

+ 1116 1176 6 THEN 
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! The pointer from the level 1 bucket is not the same, 

! but it is in the same level 1 bucket. Simply release 
: the level 0 bucket we have accessed, and go around the 
loop again so that this all happens again. 


IRAB CIRBS$B_SPL_BITS) = 0; 
IRAB CIRB$L-CURBDB) = .BDB; | 
BDB = .LEVO-BDB; 
RMSRLSBKT (OT: 

BDB = .IRAB CIRBSL_CURBDB); 

BKT_ADDR = .80B CBDBS$L_ADDRI; | 
REC-ADDR = .BKT_ADDR + BKTS$C_OVERHDSZ; 

LEAVE BLK2; 


! Ok, everything is cool. The down pointer is still the 
! same. Release the level 1 bucket and prepare to follow 
the horizontal Links at the data level for primary key. 


RMSRLSBKT (0) ; 

BDB = .LEVO_8DB; 

BKT_ADDR = ,B0B CBDBSL_ADDR); 

END; ! of block defining LEV* locals. 

IRAB CIRBSL_VBN_RIGHT] = 0; 

IRAB CIRBSL_NEXT DOWN) = 0; 

IRAB CIRB$L_VBN_CEFT] = .BDB CBDBSL_VBN); 

END; 
Under the following circumstances, the bucket to be read must 
be locked: 


1. If this is the stoplevel on “~ positioning for modification. 
¢: If this is a SIDR bucket and the file is write accessed. 
- If this is a primary data bucket, the file is write accessed 
and marked RU Journallable. 
F ((, IRABCIRBSW_SRCHFLAGS) 
ie CIRBSM_POSINSERT + IRBSM_POSDELETE)) NEQ 0 
- - IRABCIRB$B_STOPLEVEL] EQL .BKT_ADDRCBKT$B_LEVELJ) 
((, IRABCIRB$SW_SRCHFLAGS) 
—, (IRBSM_POSINSERT + IRBSM_POSDELETE)) EQLU 0 
- IFABCIFBSV_WRTACC) 
-BKT_ADDRCBKT$B_LEVEL] EQLU 0 
AND 


(, IFABCIFBSV_RUJ 
OR 


ee 
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1SSgore 9¢:04:29 UAL BLAnnch2 534 
THEN - 1OX_DFNCIOXS$B_KEYREF] GTRU 0)) 
IRAB CIRBSB_CACHEFLGS] = CSHSM_LOCK; 
Release current bucket before reading the next one. 


—OOONOUSE 


RMSRLSBKT(O); 
IRAB CIRB$L_CURBDB) = 0; 


Read in the next bucket in the horizontal chain. 


CODON 


wr 


IF NOT (ST = RMS$GETBKT(.VBN, .SIZE)) 
THEN 
BEGIN 
If the level above was locked, release it. 


IF _TESTBITSC(IRABLIRBSV_ABOVELCKDI) 
RELEASE (IRABCIRB$L_LOCK_BDB)); 
RETURN .ST; 
END; 
VBN = .BKT_ADDRCBKTS$L_NXTBKTJ; 
IRABLIRBSL~CURBDB) = -BDB; 
IF _(.JRABLIRBSV,POSINSERT] AND .BKT_ADDRCBKTS$B_LEVELJ EQLU 0) 


This is a position for insert at level 0. 
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At this point we have just read in the next bucket in the 
horizontal chain. The position for insert in the bucket 
just released was at the end of that bucket. 


Basically, if the record is lower than any record in 
the next bucket, it should be inserted at the end of 
the previous bucket. 


Field wooge is a5 follows: 
IRABC VBN_LEFT J = the leftmost, non-empty bucket in 
which the position for insert was at the end of 
the bucket. 


IRABC VBN_RIGHT ) = the rightmost bucket in which the 
osition for insert was at the beginnin of the 
ucket, i.e., less than all existing values in 

that bucket, or an empty bucket. This is used — 
to determine if VBN_LEFT may be used after backing 
up. 


Because the buckets are released prior to accessing the 
next bucket, it is possible for splits to occur prior to 
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: 1231 1291 4 : oo yp up, if that is necessary. The following assumptions 3 | 
: 4 ¢ 1 3 4 i are made: : | 
54 1293 4 ! 1) The position for insert can never be to the left of ; | 
31 1094 4 i the initial VBN_LEFT. : | 
; 1235 1295 4 ' 2) The position or insert can never be in or to the right ; | 
71 1 36 4 ' of a bucket in which the position for insert was at the : | 
31 1297 4 i beginning of that bucket. | : 1 
31 § 1 98 4 ! 3) If the NXTBKT Link from @ VBN_LEFT matches a previously | 3; | 
3 1 1 4 : accessed VBN_RIGHT, the correct position for insert is at | : 
; 1240 1300 4 ' the end of V P : 

3 1241 1301 4 ! 4) Empty buckets are skipped over until a non-empty bucket $ | 
; i 4 0¢ 4 | is encountered. : 
3 1244 1304 4 ! Note that an EMPT_SEEN bucket also returns greater than (GT) | : | 
> 1245 1305 4 ! status. VBN_LEFT and VBN_RIGHT are initialized to zero ; | 
: 1 4g 1306 4 ! im the CSEARTH_TREE routine when positioning for insert and 3 | 
3 124 1307 4 ! the stoplevel Ts 0. : 1 
3; 1248 1308 4 ! 3] 
3: 1249 1309 4 $j 
; 1250 1310 4 WHILE 1 DO | 3 | 
3; 1251 1311 4 g | 
3 26 1 \¢ 2 BEGIN el 
3; 125 131 3 | 
3: 1254 1314 § REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 3 | 
: 1255 1315 5 IRAB CIRBSL_REC_COUNT) = 0; $ | 
3 1528 1 16 5 3 | 
; 1297 4 2 ST = RMSSRCH_BY_KEY(); ; 
; 1259 1319 5 IF (VBN=.BKT_ADDRCBKTSL_NXTBKT]) EQL .IRABCIRBS$L_VBN_RIGHT] | S| 
: 1260 1339 5 THEN | 3) 
3; 1261 1321 6 BEGIN ee 
; 1566 1356 6 IRAB CIRB$L_VBN_LEVT] = 0; 3] 
> 126 1323 6 IRAB CIRB$L~VBN-RIGHT) = 6; 3 
3: 1264 13s¢ 7 RETURN RMSSOC (SOC) 3 | 
; 1265 1325 : END; 3 | 
> 1266 1326 3] 
3 1267 1387 5 IF .ST LSS 0 3 
: 1268 1328 5 3 | 
3 44 3 > g pore eee EQLA (.BKT_ADDR + BKTSC_OVERHDSZ) : 
3; 1271 1331 6 (.BKT_ADDRCBKTSV_LASTBKT] AND .IRABCIRBSV_EMPT_SEEN)) 3} 
3 if; 1336 5 THE 3 | 
; 127 1333 6 BEGIN | 31 
: iste 1338 6 § 

3 167? : 5 e IF .IRAB CIRBSL_VBN_RIGHT] EQL 0 : } 
; F344 1337 e IRAB CIRBS$L_VBN_RIGHT]) = .BDB CBDBS$L_VBNI; : 
: 1 8 1 5 6 VBN = .IJRAB CIRESL_VBN_LEFTI; | 3 | 
> 1280 1340 6 END 3 | 
; 1281 1341 $ 2] 
3: 1 a 1 4 ELSE 3 

3 ! ' ri ° BEGIN | : 

: 1285 1345 6 IF .ST LEQ 0 OR .BKT_ADDRCBKT$V_LASTBKT) : 

3 1 36 1 r § THEN : 

: 128 134 BEGIN 3 
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IF .IRAB CIRBSV_EMPT_SEENJ 
THEN 


BEGIN 
IF .IRAB CIRBSL_VBN_RIGHT] EQL 0 


IRAB CIRBSL_VBN_RIGHT] = .BDB CBDBSL_VBN); 
ELSE 


IRAB FIRBSL_VBN RIGHT = 0; 
IRAB CIRBSL_VBN-LEFT] = .BD8 CBDBSL_VBNI; 
END; 7 
RMSRLSBKT(O); 
IRAB Finest Evraos3 = 0; 
IRAB CIRB$B-CACHEFLGS) = CSHSM_LOCK; 


IF NOT (ST=RMSGETBKT(.VBN,.SIZE)) 
THEN 


BEGIN 

4 M aaah (IRABCIRB$V_ABOVELCKD]) 
RELEASE (IRABCIRBSL_LOCK_8DB)); 

TURN .ST 


RE 
END; 
IRAB CIRB$L_CURBDB) = .BDB; 
END; ! of position for insert Level 0 WHILE Loop. 
END ! of greater than status from srch_by_key. 


' status was less than or equal yy we have a down pointer if 
! at an index level or may or may not have the data record 
depending upon whether an exact match was desired or not 


BEGIN 


LOCAL 
SIZE; 


Font AOORURR TES LEVELS EQLU .IRABCIRBSB_STOPLEVELJ 
BEGIN 
IF .ST EQL 0 
H 


N 
RETURN RMSSUC (SUC) 
ELSE 


IF . ]JRABCIRBSV_POSINSERT) 


7 

Sepn198e 19:01:41 ERMS.SRCIRMSSACHKY 030; 
T]_= 0 

HT 


a a ee ee LL eee 


uw 


— SS YY = 2 OOD 


NOUS WN — O OONOU SW OOONIO 


SN NNO 
BONAOULSWN—O”O 


WWW AI NWN 
Wy te fe J 
MPWN—O”0 


wd 
WE BE EE EEE ANNI inononononononononons 


a aa a a a ak aaa a a a a a a at a ot = = = 8 ss SS tS 2 to as a 
lon 
x 
= 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ft al ek ek ek ee eh lah eh te ee he te he ee a eek ke ek kk ek kk ee eek et kt et et et et et 
Soo IO UD HOD NOME WR OOO SOME UNIO DO9 NOUN Udho OO DO9 UN =O Doe ere 


we oP or or ot oT ot ot ot ot et et ot et et ot et et et et ot ot ot ot nt ot ot et et oh a eh hs a a et et ee et ot oe a a a ol a a a 


BeBe Se Se Se Ge Be Se Ge Se Se Se Ge Se Se Ge Fe Se Se Ge Ge Ge Be Ge FF Se Ge FH Se Ge Se Se Se Gs Se Se Se Se Se Ge Se Se SH Ss Se Se Ss Se Se Se Se Se Oe Se Se Sees 


LSSSLESRANLESES 
ADMIN 


se 


16-5 
14S 


OF RABLIRBSV.SRCHGT) 
. IRABCIRBSV_SRCHGE) 
RETURN RMSSUC (SUC) 

RETURN RMSERR(RNF); 


END; 
Get the down pointer from the index record positioned at. 


IF; JFABCIFGSB_PLG_VERI LSSU PLGSC_VER_3 
BEGIN 
AP = 1; 
VEN = RMSRECORD_VBN(); 

LSE ein ! Version 3 index bucket 

VBN = RMS$V3_VBN(); 

END; 


IF .VBN EQLU 0 
RETURN (RMSERR(TRE)); 


' Check if about to read data level and switch to data level 
transfer size. 


if -BKT_ADDRCBKTSB_LEVEL EQLU 1 

SIZE = .IDX_DFNCIDX$B_DATBKTSZ) 

SIZE = .IDX_DFNCIDX$B_IDXBKTSZ]; 

SIZE = .SIZE*512; 

now check to see if the next level to read needs to be locked 


' 
BDB = .IRABCIRBSL_CURBDB); ! get curbdb into bdb 
IF . IRABLIRBSV_POSINSERT] 


. IRABLIRBSV_POSDELETE) 
THEN 


lock the stop level if either position for insert or delete 
i 

BEGIN 

LOCAL 
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STOPLEVCHK : BYTE; 


OPLEVCHK = .IRABCIRBSB_STOPLEVEL); 
OPLEVCHK = .STOPLEVCHK + 1; 


-BKT_ADDRCBKT$B_LEVEL] EQL .STOPLEVCHK 
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BEGIN 


LOCAL 
REC_SIZE; 


} if the stoplevel not zero, just lock it 


IF  JRABCIRBSB_STOPLEVELJ NEQ 0 
- IRABCIRB$V_POSDELETE) 
THEN 
BEGIN 
IRABCIRBSB_CACHEFLGS] = CSHSM_LOCK; 
LEAVE BLKS; 
END; 


! try to save the next down perater if it's in this bucket 
; to avoid possible i/o at the data level 


BEGIN 

IRAB CIRBSL_NEXT_DOWN] = -1; 

See if we're already at the end of the bucket. 

CASE .IDX_DFN CIDX$B_IDXBKTYP] FROM IDX$C_V2_BKT TO IDXS$C_NCMPIDX OF 

CIDX$C_V2_BKT]: BEGIN 
REC 


ADDR = .REC_ADDR + RMSREC_OVHD(1; REC_SIZE); 
RECCADDR = .REC-ADDR + -REC_SIZE; 


CIDXSC_CMPIDXJ: BEGIN 
eae = .REC_ADDR + .(.REC_ADDR)<0,8> + 2; 


CIDX$C_NCMP IDX: BEGIN 
REC ADDR = .REC_ADDR + .1DX_DFN CIDXSB_KEYSZ3; 


TES; 
if oREC_ADDR GEQA .BKT_ADDR + .BKT_ADDRCBKTS$W_FREESPACE) 
LEAVE BLK6; 


I CIDX$B_IDXBKTYP) EQL IDX$C_V2_B8kT 
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: 1459 1519 BEGIN H 
; 1460 1520 AP = 1; | $ 
: 1461 1501 IRAB CIRBSL_NEXT_DOWN] = RMSRECORD_VBN(); ; 
; 1098 1 ¢ END 3 
3 146 1 ; 
3: 1464 1524 BEGIN 3 
3; 1465 1525 IRAB CIRBSL_REC_COUNT] = .IRAB CIRBSL_REC_COUNT] + 1; 3 
> 1466 1 § IRAB CIRBSL_NEXT_DOWN] = RM$V3_VBN(); 3 
> 1467 1 ND; 

; 1468 1528 7 

3; 1469 1529 6 END; ! of BLK6 

: 1470 12 0 6 

3 1471 1531 6 ! if we have extrabufs and this bucket is locked then 

3 1o06 15 4 6 ! we did lockabove optimization so set 

3: 147 15 6 ! abovelckd to note that and save the bdb in lock_bdb. 

3 1474 1534 6 ! Also, if the blb_ptr is zero and there are extrabufs 

3 1475 1535 6 ! then the file is exclusively accessed therefore the 

: 1476 1536 6 | optimization may also be made. | 

3 1477 1537 6 ! 

: 1478 1538 6 | 

3: 1479 1539 6 IF .IRABCIRBSB_BCNT] GTRU 2 

: 1480 1540 6 THEN 

: 1481 1541 6 IF .BDBCBOBSL_BLB_PTR] EQL 0 

; re 1306 6 THEN 

3; 148 1543 7 BEGIN 

> 1484 1544 7 |RAB Rasy .ppover CKe? =z1; 

3: 1485 1545 7 IRABLIRBSB_CACHEFLGSJ = CSHSM_LOCK OR CSHSM_NOWAIT; 

: 1486 1546 7 IRABLIRBS$L_LOCK BDB) = .BDB; 

3 1487 1547 7 IRABCIRBSL~CURBDB) = 0; 

3; 1488 1548 7 LEAVE BLK4; | 

3 1489 1549 7 

: 1490 1550 7 END 

3: 1491 1551 6 LSE 

3 1636 1326 6 IF .BBLOCKC.BOBCBDBS$L_BLB_PTRI, BLBSV_LOCK] 

3; 149 1553 6 THEN 

3 1494 1554 7 BEGIN 

3: 1495 1555 7 IRABCIRBSV_ABOVELCKD] = 1; 

3 1496 1556 7 IRABCIRBS$B_CACHEFLGS) = CSHSM_LOCK OR CSHSM_NOWAIT; 

3: 1497 1557 7 IRABLIRBSL_LOCK_BDB) = .BDB; 

: 1498 1558 7 IRABCIRBSL_CURBDB) = 0; 

3 1499 1559 7 LEAVE BLK4; 

; 1500 1560 7 

3 1501 1561 6 END; 

3 1308 1366 6 

; 150 1565 6 ! We are not keeping the level above locked on the 

3 1504 1564 6 ' way down. Remember the vbn of this level 1 bucket we 

: 1505 1565 6 ! just passed through because it may have to be 

3; 1506 1208 6 ! checked when we get to level 0. 

: 1507 1567 6 : 

3; 1508 1568 6 

3; 1509 1297 6 IRAB_CIRBSL_VBN_RIGHT) = .BDB CBDBS$L_VBNI; 

: 1510 1570 6 IRABCIRBSB_CACHEFLGS) = CSHS$M_LOCK; 

3 1511 1571 6 

3 131¢ 1376 END 

3; 151 157 ELSE 

PY 1514 1574 : a | 

3; 1515 1575 ! if position for insert and we have the extra buffers and 


—— \ 


be locked. 
IF .IFABCIFBSV_WRTACCI 
-BKT_ADDRCBKTS$B_LEVEL] EQLU 1 
(. IFABCIFBSV_RUJ 
- IDX_DFNCIOXSB_KEYREF] GTRU 0) 
IRABCIRB$B_CACHEFLGS] = CSHSM_LOCK; 
Release the current bucket. 


RMSRLSBKT(0); 
1RAB IRBSL_CURBDBI = 0; 


4 7 
RM3SRCHKY 16-Sep-1984 02:06: AX-11 Bliss-32 V4.0-74 P 
v04- 19-808- 1382 96:36:20 YRS. SRC RM SREMNY B3ec4 — Bp 
s 151 157 ' we are going all the way to level zero, then we will tr 
; 3 i$ 1 8 ' the gerloreance cpt latsation of keeping the Level above” 
3 7 18 1 8 ! the data level locked to avoid going back to the root in 
; : 8 : 4 the event of a split. 
: 1521 1581 | 
‘ ; § : : IF .IRABCIRBS$V_POSINSERT) 
: 1524 1584 . IRABLIRB$B_STOPLEVEL] EQ 
3; 1525 1585 AND ‘ he SO 
: 1526 1356 - IRABCIRB$B_BCNT] GTRU 2 
: 1856 1884 8 THEN EGIN 
; 13 3 1389 6 STOPLEVCHK = .STOPLEVCHK + 1; 
: 1531 1591 6 IF .BKT_ADDRLBKT$B_LEV QL .STOPLEVCHK 
1332 1382 ? 4 J C LEVEL] EQL .STOPLEVC 
: 123? 1337 ° BBLOCKCIRABCIRB$B_CACHEFLGS], CSH$V_LOCK] = 1; 
ne - 
; RT 4 123% : } release the current bucket before going down 
: 1539 1599 5 RMSRLSBKT (0); 
3; 1540 1600 5 IRABCIRB$L_CURBDB] = 0; 
: 136) 108 2 END ! of BLK4 
: 1363 1803 5 ! This is not a position for modification. Release the level above 
3 1544 1604 5 ' bucket, and if the next bucket to be obtained is a data bucket, 
3 1545 1605 5 i the file is write accessed, and either the file is RU Journallable 
3: 1546 1606 5 ' or the data bucket to be obtained is a SIDR bucket, then make 
3: 1547 1607 5 ' sure the next bucket is locked. 
3; 1548 1608 5 ! 
3 1549 1609 4 ELSE 
3; 1550 1610 5 
3: 1551 1611 5 
: 1336 : \¢ : ! Determine whether the next bucket to be obtained will have to 
: 1554 1614 5 
3; 1555 1615 5 
3 1556 1616 5§ 
3; 1557 1617 5 
; 1558 1618 5 
; 1559 1619 6 
; 1560 1620 6 
3: 1561 1621 6 
; 1306 1 ¢ 5 
3 156 1 5 
3 1564 1624 5§ 
3; 1565 1625 
1368 1859 
: 15 1628 5 
s 13 1629 4 
s 13 1630 4 
: 15 1631 4 
3 15 1632 5 
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WHILE 1 DO 
BEGIN 
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; } TP 1 ; ST = RMSGETBKT(.VBN, .SIZE); 
; 1575 1635 ! if successful drop out of here 
3: 1 6 16 $ ! 
: 157 16 
3; 1578 1638 IF .ST 
3; 1579 1639 N 
; 1580 1640 EXITLOOP; 
; 1581 1641 
3 1286 1966 ! if abovelckd then release it to 
; 158 164 ' avoid deadlock. Save the VBN of the level 1 
3; 1584 1644 2 ' bucket as it will need to be rechecked when level 0 
; 1585 1645 ! is reached. 
; 1586 1646 5 ! 
3; 1587 1647 5 
3; 1588 1648 5 IF TESTBITSC(IRABCIRBSV_ABOVELCKD]) 
3; 1589 1649 5 THEN 
3; 1590 1650 6 BEGIN 
3; 1591 1651 6 BDB = .JRABCIRBSL_LOCK_8DB); 
: 1336 1938 6 IRAB_CIRB$L_VBN_RIGHTJ™~= .B8DB CBDBSL_VBNI; 
3 159 165 6 IRABCIRBSL COCK_B80B) = 0; 
3 1594 1654 6 RMSRLSBKT(O); 
3; 1595 1655 5 END; 
3: 1596 1656 5 
3; 1597 1657 6 IF .ST<0,16> NEQ RMSERR(RLK) 
: 1598 1658 5 THEN RETURN .ST; 
: 1599 1659 5§ 
: 1600 1660 5 IRAB CIRBSB_CACHEFLGS] = CSHS$M_LOCK; 
3; 1601 1661 4 END; 
: 1o06 1666 4 
: 160 16635 4 IRABCIRB$L_CURBDB] = .BDB; 
: 1604 1664 4 VBN = 0; 
3; 1605 1665 3 END; ! end else block 
: 1606 1666 3 
3; 1607 1667 3 REC_ADDR = .BKT_ADDR + BKTS$C_OVERHDSZ; 
: 1608 1668 3 IRAB CIRB$L_REC_COUNT] = 0; 
3; 1609 1669 3 END : 
: 1610 1670 2 UNTIL 0 ! end until loop 
3; 1611 1671 1 END; 
OC BB 00000 RMSSEARCH_TREE: 
POSHR #*M<R2,R3> : 0892 
5E 0c c2 0000 SUBL2 #12, SP 3 
04 AE 04 0000 CLRL VBN 3; 0984 
6E 04 00008 1$ CLRL ST 3; 0993 
07 42 Ag 6 EO QOO0A BBS #6, 66(IRAB), 2% ; 0998 
4 10 0000F BSBB ss RM$SRCH_BY_KEY : 1000 
6E 50 pD0 4 MOVL RO, ST 3 
06 11 00014 BRB 3 
0098 C9 OE A 4 3 Bapie $$ MOVAB 14(R5), 152(IRAB) : 1002 
gf DS OOOI1C 3$ TSTL ST ; 1010 
8 14 $3 BGTR 4$ ; 
0201 31 0002 BRW 39$ : 
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; Routine Size: 955 bytes, Routine Base: RMSRMS3 + O1E9 
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GLOBAL ROUTINE RMSCSEARCH_TREE 


'ee 


FUNCTIONAL DESCRIPTION: 


H 8 
ergeen13be 94:09:29 HAMS ea Oasecae ANG 8356 


: RLSRABREG_67 = 


This module controls the search through a tree. If a start position 
is given, the search continues from that point. If no start position is 
e 


given, t 


nm the search begins at the root. In the position for insert case, 


when a bucket is found on a horizontal search, a record lock error is 
returned from the search tree routine. This controlling module then 
restarts the search from the root to prevent deadlock. 


CALLING SEQUENCE: 
i RMSCSEARCH_ TREE () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


IRABLKEYBUFFER 9? 
IRABCIRBSB_KYSZ 


IRAB IRBSB_STOPLEVELJ 
IRABCIRBS$W_SRCHFLAGS 
IRABCIRBS$V_POSINSERTJ 
IRABCIRB$V_SRCHGT 
IRABLIRBS$V_SRCHG 
IRABCIRBSV_FIRST_TIM) 
IRABCIRBSV_NORLS_RNFJ 
IRABCIRBSL_CURBDB) 
IRABLIRB$L_CURBDBJ 
REC_ADDR 
IDX~DFN 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
RE R 
iat ah ee 


ROUTINE VALUE: 
RMS$_RNF 
RMS$~ SUC 


Miscellaneous 1/0 errors 


SIDE EFFECTS: 


- address of internal RAB 


address of search key ian 
size of key to compare(not equal to total key size if 
eneric search 

evel to stop search at 


if set, this is a position for insert 

if set, this is a GT approximate search 

if set, this is a GE gqrroniacte search 
if set, this is the 1ST sequential positioning 
after a $connect or $Srewin 

if set, do not release on RNF error 

if zero, then start at root 

if non-zero, then 

address of record in bucket to start search at 
address of current index descriptor 


address of index/data record which terminated search 
address of current BDB 

address of level above current if locked 

set if level above data level locked 

always cleared 


record not found ; 
record found, in approximate search key 
may not equal record/index key 


if successful, bucket is accessed , 
if RNF and NORLS_RNF is set, then bucket is accessed 
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; 1671 1730 1! bucket released on all other errors 

s 1028 1733 «1! permanence is set in the root's bdb, if not pos-for-insert 

3; 167 17 ¢ +! or there are extra buffers hanging around 

; 1674 17 1} 

; 1675 1734 1 !-- 

; 1978 1735 «(1 

; 167 17 $ BEGIN 

; 1678 17 

; 1679 1738 EXTERNAL REGISTER 

; 1680 1739 OMMON_RAB_STR, 
; 1681 1740 _REC_ADDR-STR, 

3 1086 1741 R_IDX_DFN_STR; 

; 16 \7tg 

; 1684 174 GLOBAL REGISTER 

; 1685 1744 _BDB_STR 

: 1686 1745 R-BKT-ADDR_STR; 

; 1687 1768 ; 

3 H's ee IRABCIRBSV_ABOVELCKD) = 0; ! make sure this is clear at the start 

; 1690 1749 WHILE 1 

; 1691 1750 dO 

; 1698 1751 BEGIN 

; 169 Hat BDB = .IJRABCIRB$L_CURBDB); 

3 1694 175 

; 1695 1756 IF .BDB EQLU 0 

3; 1696 1755 THEN 

; 1697 1756 

: 1698 1757 3 ! If no position given, start at root 

3; 1699 1758 3 : 

; 1700 1759 4 BEGIN 
3 1701 1760 4 

3 178 1761 4 ! If the index has not been initialized, read in the index des 

:; 170 1766 4 ! criptor again if it still has not been initialized, return error 
3 1704 1763 4 : Once the index descriptors are shared, this code can come out. | 
; 1705 1764 4 ! since when the index is made, the in_core index descriptors will | 
: 1706 1765 4 ! be updated. 
: 1707 1766 4 : 

3; 1708 1767 4 

3: 1709 1768 4 IF .1DX_DFNCIDXS$V_INITIDX] 

; 1710 1762 4 THEN 

3.1711 1770 5 BEGIN 

; Ha weet 5 IRABCIRBSV_NEW_IDX] = 1; 

; ar . 1778 ; RETURN PA_ERROR (RMSKEY_DESC(.1IDX_DFNCIDXS$B_KEYREF]), 

3 1716 P 1775 (IRABCIRBSV_NORLS_RNFJ = 0) 

3 1717 1778 END); 

3 fa | 177 

3; 171 1778 ; IF .IDX_DFNCIDX$V_INITIDX] 

3 1730 1779 THE 

3 4 1 1780 ? (IRABCIRBSV_NORLS_RNFJ = 0; 

3 12 5 17 $ 6 IF .JRABCIRBSV_POSINSERT) 

3: 1724 17 § 

3: 1725 1784 RETURN RMSERR(IDX) 

: 1766 1785 g 

3 17, 1786 RETURN RMSERR(RNF)); 
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END; 


' Read root and make sure it is still the root. If not reread 
prologue to obtain root VBN. 


WHILE 1 
dO 
BEGIN 


! if pos for insert then -- if the root should turn out to be 
the stoplevel then lock it 


4 - IRABCIRBSV_POSINSERT] 


BEGIN 
IF .IRABCIRBSB_STOPLEVEL] EQL 0 
THEN 
BEGIN 
IRAB CIRBSL_VBN_LEFT) = 0; 
IRAB CIRB$L-VBN-RIGHT) = 0; 
IRAB CIRBSL-NEXT_DOWN] = 0: 


! If the root is at level 1, we want to save 
! it's VBN so that the down pointer from it can 
} be checked when level 0 is reached. 
IF .IDX_DFN CIDX$B_ROOTLEV] EQL 1 
IRAB CIRBSL_VBN_RIGHT] = .IDX_DFN CIDX$L_ROOTVBNI; 
ELSE 
IF .IDX_DFNCIDX$B_ROOTLEV] EQL .IRABCIRBS$B_STOPLEVEL) 
IRABCIRB$B_CACHEFLGS] = CSHSM_LOCK; 
END; 
try to get the root bucket 
RETURN_ON_ERROR (RMSGETBKT(.1DX_DFNCIDX$L_ROOTVBNI, 
ae -IDX_DFNCIDX$B_IDXBKTSZJ*512), 
(IRABCIRBSV_NORLS_RNFJ = 0) 
END); 


if it really is the root bucket, leave this loop 


IF .BBLOCKC.BDBCBDBSL_ADDRJ, BKT$V_ROOTBKT) 
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RMSSRCHKY 16-Sep-1984 02:06: AX-11 Bliss-32 V4.0-74 Page 44 
v04 1o-80= 1382 96:36:20 RMS .SREIRMESREHKY B32, . o 
: 1785 1844 THEN | 
5 17 6 1845 EXITLOOP; 
: 17 1 46 
: 1788 184 MSR} SBKT (0) 
3 1789 4g IRABLIRBSV_NEW_IDX] = 1; 
: 1791 4 20 RETURN ON ERROR (RMSKEY_DESC(. IDX_DFNCIDX$B_KEYREFJ), 
: 1398 P 183¢ (TRABCIRBS$V_NORLS_RNF) = 0) 
+ 1794 185 END); 
: 1498 iges END 
: 1999 1832 4 ‘ 
: 1798 1857 4 IRABCIRBSL_CURBDB] = .BDB; 
: 1799 1858 4 
: 1800 1859 4 IF NOT .JRABLIRBSV_POSINSERT) 
> 1801 1860 4 R 
; 180¢ 1861 § (. IDX_DFNCIDX$B_KEYREF] LSSU .IFABCIFB$B_EXTRABUF J) 
> 180 186¢ 4 HEN 
: 1804 1863 4 BDBCBDBS$V_PRM) = 1; 
> 1805 1864 4 
: 1806 1865 4 REC_ADDR = .BDBCBDBSL_ADDR] + BKT$C_OVERKDSZ; 
> 1807 1866 4 IRABCIRBSL_REC_COUNTJ = 0; 
: 1808 1867 4 END 
: 1809 1868 3 ELSE 
: 1810 1869 4 BEGIN 
> 1811 1870 4 
: 181 1871 4 IF .IRABCIRB$SV_FIRST_TIM] 
> 181 1878 4 H 
: 1814 1873 4 RETURN RMSERR (BUG); | 
> 1815 1874 4 
: 1816 1875 4 BKT_ADDR = .BDBCBDBSL_ADDR] 
> 1817 1876 3 END? 
: 1818 1877 
: 1819 1878 4 BEGIN 
: 1820 1879 4 
; 1821 1880 4 LOCAL 
3; 18 § 1881 4 STS; 
: 182 1882 4 
: 1824 1883 4 STS = RMSSEARCH_TREE(); 
> 1825 1884 4 
: 18 6 1885 § IF .STS<O, 16> NEQU RMSERR(RLK) 
: } 4 1889 ‘ BEGIN 
: 1859 ibea 8 
: 1830 1889 IF .STS<O, 16> EQL RMSERR(RNF) 
: 3 1 1890 
31 32 1891 NOT .JRABCIRB$V_NORLS_RNF J 
: 1833 1 3 5 THEN 
: 1 1893 6 BEGIN 
: 1835 1894 6 IRABLIRBSL_CURBDB) = 0; 
3: 1 1895 RMSRLSBKT(O) 
; 183 1396 END; 
3: 1 3 189 | 
: 1839 1 98 IRABLIRBSV_NORLS_RNFJ = 0; 
> 1840 189 
+ 1841 1 RETURN .STS 
| 
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0000 RM$V3_VBN:: 
SHL 


:1 5 1910 1 GLOBAL ROUTINE RMSV3_VBN : Sonos sal = | 
3 1 ae 1 lee4 
: 1856 Wig 1! | 
: 1855 191 1 ! RM$V3_VBN 
:1 36 1914 1! | 
; 185 1915 1! This routine returns the VBN associated with record number 
; 1858 1318 1! *rec_count’'. It is only useful on Version 3.0 index buckets. | 
: 1859 1917 1! 
: 1860 1918 1 !<<- 
3: 1861 1919 BEGIN 
3 1806 1920 
i 186 192] 2 EXTERNAL REGISTER 
> 1864 198 R_IRAB_STR, 
> 1865 19 “IFAB-STR 
: 1866 1924 R-1DX_BFN_STR 
: 1867 1925 R-BKT-ADDR_STR, 
3; 1868 1926 R “REC _ADDR_ “STR; 
3; 1869 1927 
: 1870 1928 2 LOCAL | 
3; 1871 1363 2 ' temporar , Storage 
3 1876 1930 2 FIRST VBN, ! addr of first V N in bucket 
: 1873 1931 : VBN_STZE; i size of VBNs in this index bucket 
3; 1875 1938 VBN_SIZE = (.BKT ate he PTR_SZ])) 
3: 1876 1934 § FIRST mt aT 28K KT-A “poy (. 15x DFNCIOX$B *ipxextsz3 « * 512) - - .VBN_SIZE; 
3; 1877 1935 VBN = .(, FIRS VBN = (.V Bil S12E * . IRABLIRBSL -REC_COUN ee 
: 1878 1936 2 RETURN. .VBN St: - VBN_ slit 
3; 1879 1937 1 END; | 
DD 0 
PU R : 1910 
51 OD AS 02 03 EF 00002 EXTZV #3, #2. 13(BKT_ADDR), VBN_SIZE : 1933 
51 02 CcO 00008 ADDL2 #2, VBN_SIZE 3 
50 16 <A? 9A 0000B MOVZBL 23 UDk _BFN), RO 3 1934 
50 50 09 78 OOOO0F ASHL ; 
50 55 ¢O 00013 ADDL. BKt ADDR, RO : 
50 + < be51g UBL VEN. size RO $ 
50 04 €2 0001 SUBL IRST_VBN ; 
52 51 009% ¢9 ¢5 O001C MUEES | 14BCIRAB) 7 VBN_SIZE, R2 : 1935 | 
50 Ff Ce 608 g SUBL2 3 
52 60 DO 00 OVL (RO), VBN ; | 
51 08 C4 00028 MULL2 ‘ : 1936 
50 52 51 00 EF BoNss EXTZV #0, R1, VBN, RO 3 
04 BA 00030 POPR so #*<R2>. : 1937 | 
05 00032 RSE 3 


; Routine Size: 51 bytes, Routine Base: RMSRMS3 + O6AC | 


1938 1 END 
1939 0 ELUDOM 
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“s 
RM3SRCHKY Sep 1386 9 \ 4 
v04-000 14-Sep 5-1984 RMS .SRCIRMSSRCHKY.B32; 1 (7 


: PSECT SUMMARY 
: Name Bytes Attributes 
: RMSRMS3 1759 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Boe ee ty eS oe Re enone -/ nas. anaemia =e Syabol§ ccoccseo Pages Processing 

3 File Total Loaded Percent Mapped Time 

!  _$255SDUA28:CRMS.OBJIRMS.L32;1 3109 115 3 154 00:00.4 | 
| 
| 
| 
| 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3SRCHKY/OBJ=OBJ$:RM3SRCHKY MSRC$:RM3SRCHKY/UPDATE=(ENHS:RM3SRCHKY) 


; Size: 1759 code + 0 data bytes 
Ti 0:44.8 


| 
| 
: Elapsed Time: 01:23.0 | 
3 Lines/CPU Min: 2597 | 
$ sonenne’ wen) 16722 

3 Y Used: 401 pages | 
¥ —_ ation Complete | 
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